home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / oopasm / demo.asm < prev    next >
Encoding:
Assembly Source File  |  1990-07-09  |  896 b   |  42 lines
  1.     .MODEL    SMALL
  2.     .STACK    100h
  3.  
  4.     INCLUDE    equates.inc
  5.     INCLUDE    instance.inc
  6.     INCLUDE    messages.inc
  7.     INCLUDE    objects.inc
  8.  
  9. IF1
  10.     INCLUDE    macros.mac
  11.     INCLUDE    objects.mac
  12. ENDIF
  13.  
  14.  
  15.     EXTRN        initObjs:NEAR
  16.     EXTRN        sendMsg:NEAR
  17.  
  18.     EXTRN        Self:WORD
  19.     EXTRN        System:WORD
  20.  
  21.     .CODE
  22.  
  23. COMMENT    %
  24. ==============================================================================
  25. The main procedure that gets everything started.
  26.  
  27. =============================================================================%
  28. main    PROC    NEAR
  29.     mov        ah,4Ah            ;Pass service number
  30.     mov        bx,ProgramSize        ;Pass program size
  31.     int        DosInt            ;DOS interrupt
  32.     jc        main1            ;Jump if error
  33.     setSegs        @data            ;Make ds, and es point to data
  34.     call        initObjs        ;Initialize objects
  35.     send        System,Init        ;Initialize system
  36. main1:    exit
  37. main    ENDP
  38.  
  39.  
  40.  
  41.     END    main
  42.